home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
PGM_TOOL
/
RLINE_OP
/
SEEME.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1989-10-09
|
653b
|
42 lines
{$A+,B-,D+,E-,F-,I-,L+,N-,O-,R-,S-,V-}
{$M 16384,0,655360}
PROGRAM SeeMe;
uses
crt,
moveops,
rline,
Readers;
CONST
FileBufSize = 4096 * 2;
VAR
V : Reader;
Fn : string[66];
BEGIN
clrscr;
if paramcount = 0
then Fn := 'README'
else Fn := ParamStr(1);
if not v.init(Fn,FileBufSize,1,4,80,25)
then BEGIN
writeln('Not enough memory.');
halt(1);
END;
gotoxy(1,3);
writeln(
'───────────────────────────────────────────────────────────────────────────────');
with v do BEGIN
checkrferror;
tofl;
while scrollselect <> #27 do;
done;
clrscr;
END;
END.